Planet Source Code Jumbo …e CD Visual Basic 1 to 7/1_2002.ISO/Data/Zips/VarHelper 17995462001.psc/clsSearch.cls

Visual Basic class definition | 2001-04-06 | 59.2 KB | 1,546 lines

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "clsSearch"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Attribute VB_Ext_KEY = "SavedWithClassBuilder6" ,"Yes"
Attribute VB_Ext_KEY = "Top_Level" ,"Yes"

Option Explicit

Private m_ScanDone        As Boolean
Private m_VBInstance      As VBIDE.VBE

' *******************************************************
' Routine Name : (PRIVATE in CLASS) Sub Class_Initialize
' Written By   : Mateusz Kierepka
' Programmer   : Mateusz Kierepka [MKPROG]
' Date Writen  : 02-24-2001 -- 08:43:33
' Inputs       : N/A
' Outputs      : N/A
' Description  :
'              :
'              :
' Called By    :
' *******************************************************
Private Sub Class_Initialize()

 '{{{ Added It!

  On Error GoTo Generated_trap '}}}

  Set colVariables = New FastCollection

  '{{{ Added It!
  Err.Clear
Generated_trap:
  If Err <> 0 Then
    Select Case ToDoOnError(Err, "Class_Initialize")
     Case vbRetry: Resume
     Case vbIgnore: Resume Next
    End Select
  End If '}}}

End Sub

' *******************************************************
' Routine Name : (PRIVATE in CLASS) Sub Class_Terminate
' Written By   : Mateusz Kierepka
' Programmer   : Mateusz Kierepka [MKPROG]
' Date Writen  : 02-24-2001 -- 08:43:27
' Inputs       : N/A
' Outputs      : N/A
' Description  :
'              :
'              :
' Called By    :
' *******************************************************
Private Sub Class_Terminate()

 '{{{ Added It!

  On Error GoTo Generated_trap '}}}

  Set colVariables = Nothing
  '{{{ Added It!
  Err.Clear
Generated_trap:
  If Err <> 0 Then
    Select Case ToDoOnError(Err, "Class_Terminate")
     Case vbRetry: Resume
     Case vbIgnore: Resume Next
    End Select
  End If '}}}

End Sub

' *******************************************************
' Routine Name : (PRIVATE in CLASS) Sub AddCodes
' Written By   : Mateusz Kierepka
' Programmer   : Mateusz Kierepka [MKPROG]
' Date Writen  : 02-24-2001 -- 08:43:11
' Inputs       : N/A
' Outputs      : N/A
' Description  : load code to fast collection
'              :
'              :
' Called By    :
' *******************************************************
Private Sub AddCodes()
 Dim cFunction         As clsFunction
 Dim vbComponentObj    As VBComponent
 Dim vbMemberObj       As Member
 Dim strKey            As String
 Dim lngProgressCnt    As Long
 Dim i                 As Long
 Dim lngProcedureType  As Long
 Dim strProcedureCode  As String
 Dim lngBodyStart      As Long
 Dim lngStartLine      As Long
 Dim lngLineCount      As Long
 Dim lngProcedureLineCount  As Long
 '{{{ Added It!

  On Error GoTo Generated_trap '}}}



  Set colCodes = New FastCollection

  '
  '   initialize the progres dialog

  Call frmScanProgress.InitProgress("Please Wait - collecting data...", 0, VBInstance.ActiveVBProject.VBComponents.Count - 1)

  For Each vbComponentObj In VBInstance.ActiveVBProject.VBComponents

    Call frmScanProgress.ReportProgress("Scanning " & vbComponentObj.Name & " for data.", lngProgressCnt)

    '   DO NOT Scan if this is a related document or a resource file
    '   There is no CodeModule component for this types
    If vbComponentObj.Type <> vbext_ct_ResFile And vbComponentObj.Type <> vbext_ct_RelatedDocument Then
      With vbComponentObj

        If .CodeModule.CountOfDeclarationLines > 0 Then

          Call AddFunction(.CodeModule.Lines(1, _
               .CodeModule.CountOfDeclarationLines), _
               .Name, _
               "")
        End If

        For Each vbMemberObj In vbComponentObj.CodeModule.Members
          '   The member type tells us if this is a function or a variable

          Call frmScanProgress.ReportChange("Scanning function: " & vbMemberObj.Name & " for data.")

          lngProcedureType = -1

          Select Case vbMemberObj.Type
           Case vbext_mt_Method, vbext_mt_Event
            lngProcedureType = vbext_pk_Proc

           Case vbext_mt_Property
            '
            '   This all necessary due to the fact that we have to knwo the proper type of Get/Let to use
            '   We are just getting one line now because we are doing this just to test and probe
            On Error Resume Next
             strProcedureCode = vbComponentObj.Lines(vbComponentObj.ProcStartLine(vbMemberObj.Name, vbext_pk_Get), 1)
             If Err.Number = 35 Then ' Sub or Function not defined
               Err.Clear
               strProcedureCode = vbComponentObj.Lines(vbComponentObj.ProcStartLine(vbMemberObj.Name, vbext_pk_Let), 1)
               If Err.Number = 35 Then ' Sub or Function not defined
                 Err.Clear
                 strProcedureCode = vbComponentObj.Lines(vbComponentObj.ProcStartLine(vbMemberObj.Name, vbext_pk_Set), 1)
                 If Err.Number = 0 Then
                   lngProcedureType = vbext_pk_Set
                  Else
                   ' could not determine the type...
                   lngProcedureType = -1
                 End If
                Else
                 lngProcedureType = vbext_pk_Let
               End If
              Else
               lngProcedureType = vbext_pk_Get
             End If
            On Error GoTo 0
          End Select
          '
          '   If we could not determine the type or it is not a type we wnat, skip on outta here
          If lngProcedureType <> -1 Then
            '
            '   We are going to inspect each function as a whole for the presence
            '   of any procedure calls.  To do so we need to get information about
            '   the code for each procedure.
            '
            On Error Resume Next
             '   First we will get the starting lines and line count of the procedure
             lngBodyStart = vbComponentObj.CodeModule.ProcBodyLine(vbMemberObj.Name, lngProcedureType)
             lngStartLine = vbComponentObj.CodeModule.ProcStartLine(vbMemberObj.Name, lngProcedureType)
             lngLineCount = vbComponentObj.CodeModule.ProcCountLines(vbMemberObj.Name, lngProcedureType)
             '
             '   ProcCountLInes returns the number of lines INCLUDING any comments before the actual
             '   start of the code.  We don't want those so we calculate a new line count which only
             '   includes the actual body of code
             lngProcedureLineCount = lngLineCount - (lngBodyStart - lngStartLine)
             '
             '   But, as we look through the code for occurances of functions, the entry point (as MS calls it)
             '   will cause false hits so lets skip the first line
             lngBodyStart = lngBodyStart + 1
             '
             '   And we might as well skip the End Sub line
             lngProcedureLineCount = lngProcedureLineCount - 2

             '   Now, let's actually get the code
             '   obj.Lines (startline, count)

             Call AddFunction(vbComponentObj.CodeModule.Lines _
                  (lngBodyStart, lngProcedureLineCount), _
                  .Name, vbMemberObj.Name)

            On Error GoTo 0
          End If

        Next vbMemberObj

        Set vbMemberObj = Nothing
      End With
    End If
    lngProgressCnt = lngProgressCnt + 1
  Next vbComponentObj

  frmScanProgress.Hide

  On Error GoTo 0
  '{{{ Added It!
  Err.Clear
Generated_trap:
  If Err <> 0 Then
    Select Case ToDoOnError(Err, "AddCodes")
     Case vbRetry: Resume
     Case vbIgnore: Resume Next
    End Select
  End If '}}}

End Sub


' *******************************************************
' Routine Name : (PRIVATE in CLASS) Sub AddFunction
' Written By   : Mateusz Kierepka
' Programmer   : Mateusz Kierepka [MKPROG]
' Date Writen  : 02-24-2001 -- 08:43:03
' Inputs       : ByRef sCode:String -
'              : ByRef sModuleName:String -
'              : ByRef sFunctionName:String -
' Outputs      : N/A
' Description  :
'              :
'              :
' Called By    :
' *******************************************************
Private Sub AddFunction(ByRef sCode As String, _
                        ByRef sModuleName As String, _
                        ByRef sFunctionName As String)

 '{{{ Added It!

  On Error GoTo Generated_trap '}}}

 Dim cFunction As clsFunction

  Set cFunction = New clsFunction
  With cFunction
    .sCode = sCode
    .sModuleName = sModuleName
    .sName = sFunctionName
  End With
  colCodes.Add cFunction, sModuleName & sFunctionName
  Set cFunction = Nothing
  '{{{ Added It!
  Err.Clear
Generated_trap:
  If Err <> 0 Then
    Select Case ToDoOnError(Err, "AddFunction")
     Case vbRetry: Resume
     Case vbIgnore: Resume Next
    End Select
  End If '}}}

End Sub


' *******************************************************
' Routine Name : (PRIVATE in CLASS) Function CheckConst
' Written By   : Mateusz Kierepka
' Programmer   : Mateusz Kierepka [MKPROG]
' Date Writen  : 02-24-2001 -- 08:43:00
' Inputs       : ByRef sCheckThis:String -
'              : ByVal bModule:Boolean -
'              : ByRef sFunction:String -
'              : ByRef sModuleName:String -
' Outputs      : N/A
' Description  :
'              :
'              :
' Called By    :
' *******************************************************
Private Function CheckConst(ByRef sCheckThis As String, _
                            ByVal bModule As Boolean, _
                            ByRef sFunction As String, _
                            ByRef sModuleName As String)

 Dim cVariable    As clsVariable
 Dim sParse       As String

 Dim clsRegExp   As RegExp
 Dim clsMatchCol As MatchCollection
 Dim clsMatch    As Match
 Dim strResult   As String
 Dim strTemp     As String
 Dim i           As Long

 '{{{ Added It!

  On Error GoTo Generated_trap '}}}


  Set cVariable = New clsVariable

  Set clsRegExp = New RegExp

  strResult = sCheckThis

  '-----------------------------
  'first set regular expresion
  '-----------------------------
  With clsRegExp
    .Global = True
    .IgnoreCase = True
    '-----------------------------
    'comments
    '-----------------------------
    .Pattern = "\'{1}.*"
    Set clsMatchCol = .Execute(strResult)

    For Each clsMatch In clsMatchCol
      With clsMatch
        Debug.Print .Value
        cVariable.sComment = Trim$(.Value)
      End With
    Next clsMatch

    strResult = .Replace(strResult, " ")
    '-----------------------------
    'remove const keyword
    ' - first check maybe there
    '   are more then 1 const
    '   declaration
    '-----------------------------
    .Pattern = "\s?(const){1}\s"
    Set clsMatchCol = .Execute(strResult)

    '-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*
    ' ! -> R E C U R E N C Y if more const then 1 <- !
    '-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*
    If clsMatchCol.Count > 1 Then

      Call CheckConst(Right$(sCheckThis, Len(sCheckThis) - _
           (clsMatchCol.Item(0).FirstIndex + clsMatchCol.Item(0).Length)), bModule, _
           sFunction, sModuleName)
      sCheckThis = Left$(sCheckThis, clsMatchCol.Item(0).FirstIndex)
    End If

    If clsMatchCol.Count = 0 Then
      Exit Function
    End If

    '-----------------------------
    'WithEvents
    '-----------------------------
    .Pattern = "\s?(withevents){1}\s"
    Set clsMatchCol = .Execute(strResult)

    If clsMatchCol.Count > 0 Then
      cVariable.bWithEvents = True
      strResult = .Replace(strResult, " ")
      '-----------------------------
      'too many public
      '-----------------------------
      If clsMatchCol.Count > 1 Then
        cVariable.sDescription = cVariable.sDescription & _
                                 "Too many WithEvents keyword in const declaration." & vbCrLf
      End If
     Else
      cVariable.bWithEvents = False
    End If

    '-----------------------------
    'public with
    '-----------------------------
    .Pattern = "\s?(public){1}\s"
    Set clsMatchCol = .Execute(strResult)

    If clsMatchCol.Count > 0 Then
      cVariable.sScope = "public"
      strResult = .Replace(strResult, " ")
      '-----------------------------
      'too many public
      '-----------------------------
      If clsMatchCol.Count > 1 Then
        cVariable.sDescription = cVariable.sDescription & _
                                 "Too many public keyword in const declaration." & vbCrLf
      End If
    End If

    '-----------------------------
    'private
    '-----------------------------
    .Pattern = "\s?(private){1}\s"
    Set clsMatchCol = .Execute(strResult)
    If clsMatchCol.Count > 0 Then
      strResult = .Replace(strResult, " ")
      '-----------------------------
      'too many private
      '-----------------------------
      If clsMatchCol.Count > 1 Then
        cVariable.sDescription = cVariable.sDescription & _
                                 "Too many Private keyword in const declaration." & vbCrLf
      End If
      '----------------------------------------------------------
      'someone declared const with private and public keyword
      '----------------------------------------------------------
      If Len(cVariable.sScope) > 0 Then
        cVariable.sDescription = cVariable.sDescription & _
                                 "Private and public keyword in const declaration." & vbCrLf
        cVariable.sScope = "Error"
       Else
        cVariable.sScope = "Private"
      End If
    End If
    '-----------------------------
    'global
    '-----------------------------
    .Pattern = "\s?(global){1}\s"
    Set clsMatchCol = .Execute(strResult)
    If clsMatchCol.Count > 0 Then
      strResult = .Replace(strResult, " ")
      '-----------------------------
      'too many private
      '-----------------------------
      If clsMatchCol.Count > 1 Then
        cVariable.sDescription = cVariable.sDescription & _
                                 "Too many Global keyword in const declaration." & vbCrLf
      End If
      '----------------------------------------------------------
      'someone declared const with private and public keyword
      '----------------------------------------------------------
      If Len(cVariable.sScope) > 0 Then
        cVariable.sDescription = cVariable.sDescription & _
                                 "Global and Private or public keyword in const declaration." & vbCrLf
        cVariable.sScope = "Error"
       Else
        cVariable.sScope = "Global"
      End If
      cVariable.sDescription = cVariable.sDescription & _
                               "Global keyword is obslote. You should use public instead." & vbCrLf
    End If

    '-----------------------------
    ' Scope declared?
    '-----------------------------
    If Len(cVariable.sScope) = 0 Then

      cVariable.sDescription = cVariable.sDescription & _
                               "You should add Private or public keyword for constant to declare scope." & vbCrLf

      If bModule Then
        cVariable.sScope = "Not declared - public"
       Else
        cVariable.sScope = "Not declared - Private"
      End If
    End If

    '-----------------------------
    'find type of constant
    '-----------------------------
    .Pattern = "\s?(as){1}\s"
    Set clsMatchCol = .Execute(strResult)

    If clsMatchCol.Count > 0 Then
      '-----------------------------
      'too many as
      '-----------------------------
      If clsMatchCol.Count > 1 Then
        cVariable.sDescription = cVariable.sDescription & _
                                 "Too many As keyword in const declaration." & vbCrLf
      End If

      '-----------------------------
      'find =
      '-----------------------------
      i = InStr(clsMatchCol.Item(0).FirstIndex + 2, strResult, "=")
      If i > 0 Then
        cVariable.sType = Trim$(Mid$(strResult, _
                          clsMatchCol.Item(0).FirstIndex + 4, _
                          i - (clsMatchCol.Item(0).FirstIndex + 4)))

        cVariable.vValue = Right$(strResult, Len(strResult) - i)

       Else
        cVariable.sType = Trim$(Right$(strResult, i - _
                          (clsMatchCol.Item(0).FirstIndex + 2)))
        cVariable.sDescription = cVariable.sDescription & _
                                 "Const not declared." & vbCrLf
      End If
      '-------------------------------
      'remove as keyword and find name
      '-------------------------------
      strResult = Trim$(Left$(strResult, clsMatchCol.Item(0).FirstIndex))
      cVariable.sName = Replace$(strResult, "=", "")
     Else
      '-----------------------------
      'without as
      '-----------------------------
      cVariable.sDescription = cVariable.sDescription & "You should specify type of const [As 'Data type'] ." & vbCrLf
      cVariable.sType = "Not declared - Variant"
      '-----------------------------
      ' Find =
      '-----------------------------
      i = InStr(1, strResult, "=")
      If i > 0 Then

        cVariable.vValue = Right$(strResult, Len(strResult) - (i + 1))

       Else
        cVariable.sDescription = cVariable.sDescription & _
                                 "Const not declared." & vbCrLf
      End If
      '-------------------------------
      'remove as keyword and find name
      '-------------------------------
      strResult = Trim$(Left$(strResult, i))
    End If

  End With
  With cVariable
    'remove "
    clsRegExp.Global = True
    clsRegExp.IgnoreCase = True
    clsRegExp.Pattern = """{1}"
    .vValue = clsRegExp.Replace(.vValue, "")
    'remove =
    .vValue = Trim$(Replace$(cVariable.vValue, "=", ""))
    'remove vbcrlf
    .vValue = Trim$(Replace$(cVariable.vValue, vbCrLf, ""))
    'remove =
    .sName = Trim$(Replace$(strResult, "=", ""))
    .sName = Trim$(Replace$(.sName, vbCrLf, ""))
    .sName = Trim$(Replace$(.sName, vbCr, ""))
    .sName = Trim$(Replace$(.sName, vbLf, ""))

    .sFunctionName = sFunction
    .sModuleName = sModuleName
    .bConst = True
  End With
  '-----------------------------
  'realese objects
  '-----------------------------
  Set clsRegExp = Nothing
  Set clsMatchCol = Nothing

  colVariables.Add cVariable

  Set cVariable = Nothing
  '{{{ Added It!
  Err.Clear
Generated_trap:
  If Err <> 0 Then
    Select Case ToDoOnError(Err, "CheckConst")
     Case vbRetry: Resume
     Case vbIgnore: Resume Next
    End Select
  End If '}}}

End Function


' *******************************************************
' Routine Name : (PRIVATE in CLASS) Function CheckType
' Written By   : Mateusz Kierepka
' Programmer   : Mateusz Kierepka [MKPROG]
' Date Writen  : 02-24-2001 -- 08:42:54
' Inputs       : ByRef sModuleName:String -
'              : ByRef sFunction:String -
'              : ByRef sCheckThis:String -
' Outputs      : N/A
' Description  :
'              :
'              :
' Called By    :
' *******************************************************
Private Function CheckType(ByRef sModuleName As String, _
                           ByRef sFunction As String, _
                           ByRef sCheckThis As String)

 Dim sParse       As String
 Dim bModule      As Boolean
 Dim clsRegExp    As RegExp
 Dim clsMatchCol  As MatchCollection
 Dim cVariable    As clsVariable

 '{{{ Added It!

  On Error GoTo Generated_trap '}}}


  Set cVariable = New clsVariable

  Set clsRegExp = New RegExp

  '-----------------------------
  'first set regular expresion
  '-----------------------------
  With clsRegExp
    .Global = True
    .IgnoreCase = True

    '-----------------------------
    'Remove not nessesery data
    '-----------------------------
    .Pattern = "\s?(declare|enum|type|event|sub){1}\s+"
    Set clsMatchCol = .Execute(sCheckThis)
  End With

  If clsMatchCol.Count = 0 Then

    If Len(sFunction) > 0 Then
      bModule = False
     Else
      bModule = True
    End If

    clsRegExp.Pattern = "\s?(const){1}\s"
    Set clsMatchCol = clsRegExp.Execute(sCheckThis)
    If clsMatchCol.Count = 0 Then
      Call CheckVariable(sCheckThis, bModule, sFunction, sModuleName)
     Else
      Call CheckConst(sCheckThis, bModule, sFunction, sModuleName)
    End If

  End If

  Set clsMatchCol = Nothing
  Set clsRegExp = Nothing

  '{{{ Added It!
  Err.Clear
Generated_trap:
  If Err <> 0 Then
    Select Case ToDoOnError(Err, "CheckType")
     Case vbRetry: Resume
     Case vbIgnore: Resume Next
    End Select
  End If '}}}

End Function


' *******************************************************
' Routine Name : (PRIVATE in CLASS) Function CheckVariable
' Written By   : Mateusz Kierepka
' Programmer   : Mateusz Kierepka [MKPROG]
' Date Writen  : 02-24-2001 -- 08:42:50
' Inputs       : ByRef sCheckThis:String -
'              : ByVal bModule:Boolean -
'              : ByRef sFunction:String -
'              : ByRef sModuleName:String -
' Outputs      : N/A
' Description  :
'              :
'              :
' Called By    :
' *******************************************************
Private Function CheckVariable(ByRef sCheckThis As String, _
                               ByVal bModule As Boolean, _
                               ByRef sFunction As String, _
                               ByRef sModuleName As String)

 Dim cVariable    As clsVariable
 Dim sParse       As String

 Dim clsRegExp   As RegExp
 Dim clsMatchCol As MatchCollection
 Dim clsMatch    As Match
 Dim strResult   As String
 Dim strTemp     As String
 Dim i           As Long
 Dim j           As Long
 Dim k           As Long


 '{{{ Added It!

  On Error GoTo Generated_trap '}}}


  Set cVariable = New clsVariable

  Set clsRegExp = New RegExp

  strResult = sCheckThis

  '-----------------------------
  'first set regular expresion
  '-----------------------------

  With clsRegExp
    .Global = True
    .IgnoreCase = True

    '-----------------------------
    'comments
    '-----------------------------
    .Pattern = "\'{1}.*\n"
    Set clsMatchCol = .Execute(strResult)

    For Each clsMatch In clsMatchCol
      With clsMatch
        Debug.Print .Value
        cVariable.sComment = Trim$(.Value)
      End With
    Next clsMatch

    strResult = .Replace(strResult, " ")

    '-----------------------------
    'WithEvents
    '-----------------------------
    .Pattern = "\s?(withevents){1}\s"
    Set clsMatchCol = .Execute(strResult)

    If clsMatchCol.Count > 0 Then
      cVariable.bWithEvents = True
      strResult = .Replace(strResult, " ")
      '-----------------------------
      'too many WithEvents
      '-----------------------------
      If clsMatchCol.Count > 1 Then
        cVariable.sDescription = cVariable.sDescription & _
                                 "Too many WithEvents keyword in variable declaration." & vbCrLf
      End If
     Else
      cVariable.bWithEvents = False
    End If

    '-----------------------------
    'Preserve
    '-----------------------------
    .Pattern = "\s?(preserve){1}\s"
    Set clsMatchCol = .Execute(strResult)

    If clsMatchCol.Count > 0 Then
      cVariable.bPreserve = True
      strResult = .Replace(strResult, " ")
      '-----------------------------
      'too many Preserve
      '-----------------------------
      If clsMatchCol.Count > 1 Then
        cVariable.sDescription = cVariable.sDescription & _
                                 "Too many Preserve keyword in variable declaration." & vbCrLf
      End If
     Else
      cVariable.bPreserve = False
    End If

    '-----------------------------
    'public with
    '-----------------------------
    .Pattern = "\s?(public){1}\s"
    Set clsMatchCol = .Execute(strResult)

    If clsMatchCol.Count > 0 Then
      cVariable.sScope = "public"
      strResult = .Replace(strResult, " ")
      '-----------------------------
      'too many public
      '-----------------------------
      If clsMatchCol.Count > 1 Then
        cVariable.sDescription = cVariable.sDescription & _
                                 "Too many public keyword in variable declaration." & vbCrLf
      End If
    End If

    '-----------------------------
    'private
    '-----------------------------
    .Pattern = "\s?(private){1}\s"
    Set clsMatchCol = .Execute(strResult)
    If clsMatchCol.Count > 0 Then
      strResult = .Replace(strResult, " ")
      '-----------------------------
      'too many private
      '-----------------------------
      If clsMatchCol.Count > 1 Then
        cVariable.sDescription = cVariable.sDescription & _
                                 "Too many Private keyword in variable declaration." & vbCrLf
      End If
      '----------------------------------------------------------
      'someone declared variable with private and public keyword
      '----------------------------------------------------------
      If Len(cVariable.sScope) > 0 Then
        cVariable.sDescription = cVariable.sDescription & _
                                 "Private and public keyword in variable declaration." & vbCrLf
        cVariable.sScope = "Error"
       Else
        cVariable.sScope = "Private"
      End If
    End If
    '-----------------------------
    'global
    '-----------------------------
    .Pattern = "\s?(global){1}\s"
    Set clsMatchCol = .Execute(strResult)
    If clsMatchCol.Count > 0 Then
      strResult = .Replace(strResult, " ")
      '-----------------------------
      'too many Global
      '-----------------------------
      If clsMatchCol.Count > 1 Then
        cVariable.sDescription = cVariable.sDescription & _
                                 "Too many Global keyword in variable declaration." & vbCrLf
      End If
      '----------------------------------------------------------
      'someone declared variable with Global and public or
      'private keyword
      '----------------------------------------------------------
      If Len(cVariable.sScope) > 0 Then
        cVariable.sDescription = cVariable.sDescription & _
                                 "Global and Private or public keyword in variable declaration." & vbCrLf
        cVariable.sScope = "Error"
       Else
        cVariable.sScope = "Global=public"
      End If
      cVariable.sDescription = cVariable.sDescription & _
                               "Global keyword is obslote. You should use public instead." & vbCrLf
    End If

    '-----------------------------
    'Dim
    '-----------------------------
    .Pattern = "\s?(Dim){1}\s"
    Set clsMatchCol = .Execute(strResult)
    If clsMatchCol.Count = 0 Then
      .Pattern = "\s?(redim){1}\s"
      Set clsMatchCol = .Execute(strResult)
    End If

    If clsMatchCol.Count > 0 Then
      strResult = .Replace(strResult, " ")
      '-----------------------------
      'too many Global
      '-----------------------------
      If clsMatchCol.Count > 1 Then
        cVariable.sDescription = cVariable.sDescription & _
                                 "Too many Dim keyword in variable declaration." & vbCrLf
      End If
      '----------------------------------------------------------
      'someone declared variable with Dim ,
      'with private, public or global keyword
      '----------------------------------------------------------
      If Len(cVariable.sScope) > 0 Then
        cVariable.sDescription = cVariable.sDescription & _
                                 "Dim and Private or public keyword in variable declaration." & vbCrLf
        cVariable.sScope = "Error"
       Else
        If bModule Then
          cVariable.sScope = "public"
         Else
          cVariable.sScope = "Private"
        End If

      End If

    End If

    '-----------------------------
    'find other variables
    '-----------------------------
    i = InStr(1, strResult, ", ")
    If i > 0 Then
      j = InStr(1, Left$(strResult, i), "(")
      '-----------------------------
      'find dimension
      '-----------------------------
      If j > 0 Then
        'there are bracket - check for dimension
        k = InStr(1, strResult, ") ")
        If k > 0 Then
          Call CheckVariable(cVariable.sScope & _
               " " & Right$(strResult, _
               (Len(strResult) - k) + 1), _
               bModule, sFunction, sModuleName)
          strResult = Left$(strResult, k)
        End If
       Else
        'no dimension, check other variables
        '-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*
        ' ! -> R E C U R E N C Y <- !
        '-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*

        Call CheckVariable(cVariable.sScope & " " & Right$(strResult, _
             (Len(strResult) - i)), _
             bModule, sFunction, sModuleName)

        strResult = Left$(strResult, i - 1)
      End If
    End If
    '-----------------------------
    'find type of variable
    '-----------------------------
    .Pattern = "\s?(as){1}\s"
    Set clsMatchCol = .Execute(strResult)

    If clsMatchCol.Count > 0 Then
      '-----------------------------
      'too many as
      '-----------------------------
      If clsMatchCol.Count > 1 Then
        cVariable.sDescription = cVariable.sDescription & _
                                 "Too many As keyword in variable declaration." & vbCrLf
      End If

      cVariable.sType = Trim$(Mid$(strResult, _
                        clsMatchCol.Item(0).FirstIndex + 4, _
                        Len(strResult) - (clsMatchCol.Item(0).FirstIndex + 3)))

      '-------------------------------
      'remove as keyword and find name
      '-------------------------------
      strResult = Trim$(Left$(strResult, clsMatchCol.Item(0).FirstIndex))

     Else
      '-----------------------------
      'without as
      '-----------------------------
      cVariable.sDescription = cVariable.sDescription & "You should specify type of variable [As 'Data type'] ." & vbCrLf
      cVariable.sType = "Not declared - Variant"

    End If

    '-----------------------------
    'Find any dimension settings
    '-----------------------------
    i = InStr(1, strResult, "(")

    If i > 0 Then
      j = InStr(1, strResult, ")")
      If i + 1 = j Then
        cVariable.sDimension = "Dynamic array"
       Else
        cVariable.sDimension = Trim$(Mid$(strResult, i + 1, j - i - 1))
      End If
      cVariable.sName = Trim$(Left$(strResult, i - 1))
     Else
      cVariable.sName = Trim$(strResult)
    End If

  End With

  With cVariable
    .sFunctionName = sFunction
    .sModuleName = sModuleName
    .bConst = False

    'remove vbcrlf
    .sName = Trim$(Replace$(.sName, vbCrLf, ""))
    .sName = Trim$(Replace$(.sName, vbCr, ""))
    .sName = Trim$(Replace$(.sName, vbLf, ""))
    'remove space
    .sName = Trim$(Replace$(.sName, " ", ""))

    'remove vbcrlf
    .sType = Trim$(Replace$(.sType, vbCrLf, ""))
    'remove space
    .sType = Trim$(Replace$(.sType, " ", ""))

  End With


  colVariables.Add cVariable

  '-----------------------------
  'realese objects
  '-----------------------------
  Set clsRegExp = Nothing
  Set clsMatchCol = Nothing

  Set cVariable = Nothing
  '{{{ Added It!
  Err.Clear
Generated_trap:
  If Err <> 0 Then
    Select Case ToDoOnError(Err, "CheckVariable")
     Case vbRetry: Resume
     Case vbIgnore: Resume Next
    End Select
  End If '}}}

End Function


' *******************************************************
' Routine Name : (PRIVATE in CLASS) Function FormatXML
' Written By   : Mateusz Kierepka
' Programmer   : Mateusz Kierepka [MKPROG]
' Date Writen  : 02-24-2001 -- 08:42:44
' Inputs       : ptrNode:IXMLDOMNode -
'              : Optional iTabLevel:Integer = 0 -
' Outputs      : String --
' Description  :
'              :
'              :
' Called By    :
' *******************************************************
Private Function FormatXML(ptrNode As IXMLDOMNode, Optional iTabLevel As Integer = 0) As String
Dim bMixedTextNode As Boolean
Dim bHasOnlyATextNode As Boolean
Dim i As Integer

    With ptrNode
        Select Case .nodeType
        Case NODE_DOCUMENT, NODE_DOCUMENT_FRAGMENT
            'all child nodes of the document should be at the same indent Level
            'just iterate over them and recurse with 0 indent
            For i = 0 To .childNodes.Length - 1
                FormatXML = FormatXML & FormatXML(.childNodes(i))
            Next i

        Case NODE_TEXT 'should render the same way the default IE5sameox + 3ld render the same wayo

    'remove vbc4'Err.oE render the same wand recurse wf3chil$(strResult, i - 1))
     Else
      cVariable.sName = Trim$(strResult)
    End If

  End With

  With cVariable
    .sFunctionName = sFunction
    .sModuleName = sModuleName
    .bConst = False

    'remove vbcrlf
    .sName = Trie   t    Next i

 ableaeus\oe   t    Next i

 ableaeus\oe   t    Next i

 ableaeus\oe   t    Next ie      cVariable.sName = Trim$(strResult)
    End Ifme, vbCrLf, ""))
        '--[zlb       t   Then
    Select Case ToDoOchCee
   " & vbCrLf
      me, vbCrLf,t shouldof the document should be at the same indent Level
            'just iterate over them and recurse with 0 indent
            Fortheus\oe   t    Ne+_led+ 4)))
  *******berObjm"tNcop)  indent
        * indent   .sMo.*berObj--------------
    .Pattern = "\s?(withevents){1}\s"
    Set ptrNode
        Select Case .nodeType
    t      t  fe Writen  : 02-24-'removeltd  cLAachemoveltd  cL thef[moveltdgme, ---cih-otd  cLeOntd  cL thefTRegExp
    .Global =  ie      cVariable.sName = Trim$(strResuln  cLet  cLeOntC cLeOntC cLe-cih-otd  c'ablC cLeOntC cLe-cih-otd  c'ablC cLih-otd  c'ablC cLiCase .nodeType
      Ne+_gext i
WithObjm"tNcop)  indent Writ     :
'              ------rd    ls{{{ AduOntC cLe-cih-otd  c'ablC cLeOntC cLe-cih-otd  c'ablC cLih-otd  c'd re=   t    Next ie      cVariable.sName = Trim$(stduOntC cLe-cih-otd  c'ablC cLeOntC cLe-cih-otd  c'ablC cLih-otd  c'd re=   t    Next ie      cVariable.sName = Trim$(stduOntC cLe-cih-otd  c'ablC cLeOntC cLe-cih-otd  c'ablC cLih-otd  c'd re=   t    Next ie      cVariable.sName = Trim$(stduOntC cLe-cih-otdC cLeOnjLe-cih-oeotd  c'ablC cLeOntC cLe-cih-otd  c'ablC cLih-otd  c'd re=   t    Next ie C cLih-o'Selrse       As String

 Dim clsRegExp   As RegEritu0R
'    C   j = InStrcih-otd  ine count whio---OS  c'd rxEisModuleName)
      sChocLeuuOn d rxEisMoNext
ame iption & _
              denfd rxEis s .o  t  Ca  sChocLeuuOn d rxEisMoNext
+BcVariabl_alese objects
0*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*

        Call CheckVariable(cVariable.sScope & " " & Right$(strResult, _
             (Len(strResult) - i)), _
  Len(strResuc_
         "i._f
      meResult) - i)), _p----
      If  rxEisMoNext
a   tlount

 Dim clsRoIabl_alese objects
0*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*ki
  eeeeee*-*-*-*ki
  eeeeee*-*-*-*ki
  eeeeee*-*-*-*ki
  eeeeee*-*-*-*ki
  eeeeee*nNabl_alyEEbl_alyEEbl_alyEEbcLeOntC cLe-cih-tC cLe-rittbl_alese objects
0*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*

        Call CheckVariable(cVariable.sScope & " " & Right$(strResult, _
             (Len(strResult) - i)), _
  Len(strResucE
'      o---t*-*-*-*-*-*-*-*-*-*-*-*-*-*-*

        Call CheckVaria!yki
CDl    If  rxEisMoNextItusz Kiesuc ioisMoNextI:(bl_altaaria!yki
CDl    uur           :
' Called By    :
' **************************************************Cal   denfd rxEis s .o  t  Ca  sChocLeuuOn d eVal  ,et) -Iee        (Len(strResult) - i)), _
  Len(strResucE
'      o---t*-*-*-*-*-*-*-*-*-*-*-*-*-*-*

        Call CheckVaria!yki
CDl    If  rxEisMoNextItusz Kiesuc ioisMoNextI:(bl_altaaria!yki
CDl    uur         Variase .n]ur         Va rxEisMoNextI******         Va rxEisMoNextI******                Va rxEisMeea----------------ith
> R E C U?             Va rxEisCall CheckIee   fm<o

      teep If

 Len(strResucE
'      o---t*-*-*-*-*-*-*-*-*-*-*-*-*-*-*

        Call CheckVaria!yki
CDl    If  rxEisMoNextItusz Kiesuc ioisMoNextI:(bl_a(I
      End IfrxEisCalenMzxv        VI.Count > 1Melect Case .nodeType
    t      t  fe Writen  : 02-2ntCt  fe WritE*******       Variase .n]uNextI:(bl_a(I
      End IfrxEisCalenMzxv     yxv        VI.Count > 1Melect Case .nodeType
    t      t  fe Writen  : 02-2ntCt  fe WritE*******       Variase .n]uNextI:(bl_a(I
      End IfrxEisCalenMzxv     yxv   g----------------------
      'someone declunt > 0 Then
      '------------------C
riten  : 02-2ntCt  fe WritE******* f--------C
riten  : 02-2ntCt  fe WritE******* f--------C
riten  : 02-2ntCt  fe WritE******* f--------C
ritriten -*-*-*m
 LI******
 ableaeus\oe   t    Nex****** f t  fe Wt3ie
riten  t*-*-*mtCheckVteger ****  End If
    '--------------e                    "Global and Private or public keyword in variable declaration." & vbCrLf
        cVariable.sScope = "E}riteXo| 02-e WritE******* f--------C
riten  : 02-2ntCt  fe WritE*****************Cal   denfd rxEis s .o  t  Ca  sChocLeuuOn d eVal  ,et) -Iee        (Len(strResult)riten  : 02-2ntCt  fe WritE*****************Cal   2-2ntCt   Check*-*-Ife Wt3ie
riten  t*-*-*mtCheckVteger ****  End If
    '--------------e                    "Global and Private or public keyword in variable declaration." & vbCrLf
        cVariable.sScope = "E}riteXo| 02-e WritE******* f--------C
riten  : 02-2ntCt  clc       "Dim and Private or public keyword in variable declaration." & vbCrLf
        cVariable.sScope = "Error"
       Else
        If bModule Then
          cVariable.sScope = "public"
         Else
          cVariable.sScope = "Private"
        End *** f--------*-    friva    declarati---*-      '-.Rcpe = "    2tion & _
         )g'druBW i---*-      '-.Rcpe = "    2tion & _
       e = Trim$(Le{le.sSyd in variable declaration." & vbCrLf
 ----   o---t*-*-*-*-*-*-*l*-*-*-*-*iable.sScope = "Error"
       Else
        If bModule Then
          cVariable.sScope = "public"
           *-*le.sType = "Not declareon & _e(cVariabl"ce declaration." & vbCrLf
        cVariable.sScope = "ond jMc keywor  cVaria)******oMBE      '    2tion &_no--------th: 0opey Gls(cVedeclaration." & vbCrLf
 ----   o---t*-*-*-*-*-*-*l*-*-*-*-*iable.sScope = "Error"
       Else
        If bModule ThoEate1
 '{{{ AdiB--*-     n Error GoTo   o-----Nbyope = "Erro d eVal  ,et) o--------, .o  eisMoNext             denfd rl'{{{ AdiiL         r them -----
      D
riten  : 02-oCcE
'   yteXo| R'   ablC cLse
        If bModule ThoEate1
 '{{{ AdiB--*-     n Error GoTo   o-----Nbyope = "Ers = _hcrrrrrrrI      cVariable.sScorErs =         End *** f--------*-    friva    declarati---*-      '-.Rcpe = "    2tion & _
         )g'druBW i---*-      '-.Rcpe = "    2tion & _
       e = Tripo'----- nuIf bModule Then
  cm  2a*-*-*-*-* *** fs
       e = TripjT= "    2tion & _
       e = Tripo'----- nuIf bModule Taptional iE WritE******* f--------C
riten  : 02-2ntCt  clc       "Dim and Private or pu **-"one-noBb-T-- nuIf bMoword iCt -----C      = _hcrrrrrrrI      cVar"al  ,et) o--------, .o  eisMoNext    tCextItuskConst
' Written By   /teXo| R'   ablC c*-*m'druBW i-sMoNext
 bModule Then
          cVariable.sScope = "public"
         Else
           BoLenpo'-

        Callc)w--*-     to   "    'A*******xle.sScope = "p.sScorErVih-ooeMKallc)w--*- Dgi----
        Call CeoduLw--If
    '-----------------------------
    'global
    '-----------------------------
    .Pattern )*-*iab
 ----   o---t*-*-* AdiB--*  so       BoLTl"ce dec      End *** f--------*-    friva    declarati---*-      '-.Rcpe = "    2tion & _
         )g'druBW i---*-     clarati---  cVui h lareon & _e(cVariabl"ce declaration." & vbCrLf
        cVariable.sScope = "ond jMc keywor  cVaria)******oMBE      '    2tion &_no--------th: 0opel." & vbCrLf
        cVariable.sScope = "riOu---*-gC  2tioncAa*  so  wl
      If j > 0 Then
       rMStr(1,  cVarion =Sy = "Ers = )en d rxEisMoNuten  : 02-2ntCt  fe WritE********** tE********** tE********** tE********** tErIf bTo   o-----Nbyope = "Ers = _hcrrrrrrrI      cVariable.sScorErs =         End *** f--------*-    friva    declarati---*-      '-.Rcpe = "    2tile.-------*-    friva    decluBvor"
       Else
 ThoEate1
 '{{{ AdiB--*-     n Error GoTo   o-----Nbyope = "Erro d eVal  ,et) o--------, .o  eisMoNext             denfd rl'{{{ AdiiL         r them -----
      D
riten  : 02-oCcE
'   yteXo| R'   ablC cLse
        If bModule ThoEate1
 '{{{ AdiB--e  u  aaI.CounWritE******* f--------C    aa+aI.den {    Va rxEr = _hcrr "    2Titen  'ten  'ten  'ten  'ten  'ten  'ten  'ten  'ten   2tion hoEate1." rxEr = _hcrr "    2Titen  'ten  'ten t]eErs = _hcrn =Sy = "Ers = Tyj  u  declstrResult = ********ope = "E   denfd r"jS-----
***Cal   denfd rxEis s .oo ten  'ten   2tion hoEate1f.Rcpe = "    2tion & _
     temfoEate1f.Rcpct
    .Pattern = "\s?(withevents){1}\s"
    Set ptrNode
aaI.pey Gls(cVedeclaration." & vbCrLf
 ----   o---t*-*-*-*-*-*-*l*-*-*-*-*iable.sScope = "Error"
       Else
        If bModule ThoEate1
 '{{{ AdiB--*sh1"   ec   oB '-----------------------------
    .Pattern = "\s?(const){1}\s"
    Set clsMatchCol = .Execute(strResult)

    '-*-*-4e.) > 0-------H,-*-*-4e.) > 0-------H,-*-*-4lO      I        I ln = tern = "\s?(const){1}\s"
    Set clsMatchCol = .Execute(strResult)

    '-*-*-4e.) > 0o-*-4e.) > 0------H,-niuI      .) >so ri( 0-------c   oB '----Pr)oG{1}e.)= sModuleName
    .bConst = False

    'remove vbcrlf
    .sName = Trie   t    Next i

 ableaeus\oe   t    Next i

 ableaeus\oe   t     rorET  declstrResult = ********ope = "E   denfd r"jS-----
***Cal   denfd rxEis s .oo ten  'ten   2tion hoEate1f.Rcpe = "    25e"""{1}"r"
 \Einpct
    .Patte   gb
    = "E   denfd r"jr= ********osrg  2tion hsA(oSy = tteaSodule ThoEate1
 '{{{ AdiB--*sh1"   ec   oB '-----------------------------
    .Pattern = "\s?(const){1}\s"
    Set clsMatchCol = .Execute(strResult)

    '-*-*-4e.) > 0-------H,-*-*-4e.) > 0-------H,-*-*-4lO      I        I ln = tern = "\s?(const){rxEis s .o  I ln = tern = xEis s .o  I ln = to "\s?=&L*-4e.) > 0-------H,-*-*-4lO      I        I ln = tern = "\s?(const){rxEis s .o  I ln = tern = xEis s .o  I ln = to "\s?=&L*-4e.) > 0-------H,-*-*-4lO      I        I ln = tern = "\s?(const){rxEis s .o  I ln = tern = xEis s .o  I ln = to "\s?=&Lo-
 cVariable.sNameg-*-*-4e.) > 0-------H,-*--------------------------"SntCt  cx|)D-4e.) uteaSa-----------------zxv     yg****oEate1
 '{{{ Au|.0-4lO      I    eg,I ln = tern = "\s?>-------La,et) o---t   .Pat,.D{ = ttCt  cx|)D-4e.) uteaS  I   to   "    'A*******xle.sScope = "p.sScorErVih-s."able.sScope = "ond jMc keywor  cVaria)***x|)D-4e.)    u  declsface$(.sType, " ", ""))

  End With


  colVariables.Add cVariable

  '-----------------------------
  'realese objects
  '-----------------------------


























LyeN]Mealese objects
  '-----------------------------








ud-



WritE**    'remove vbcrlf
    .sName = Trist){se objects
  '-----------f
      ') = 0) As {se objects
LAs {se objecus
LAs {se objecus
LAs {se objecus
LAs {se objecus
LAs--
LAs {se obe---- ute:e vbcrlf
 :S s
LAsse
L1 = ".E-----rammer  n,-*-*-4lO      I        I ln = tern = "\s?(const){1}\s"
    Set clsMatchCol = .Execute(strResult)
    t){ = "f clsMatc   tern('-*-*-4e.) > 0-------H,-*-*-4Vupopeble.sNameg-*-*-4e.) > 0-------H,-*--------------------------"SntCt  cx|)D-4e.) uteaSa-----------------zxv     yg****oEate1
 '{{{ Au|.0-4lO      I    eg,I ln = tern,cope = "ond jMc keP---------eDmilsMatchCol = .Execute(strResult)
    tExeeg,IAsse
L1 = ---".E---zxv     yg****oEate1
 '{{{ Au|CheckVaria!yki
CDl    If  rxEisMoNextItusz Kiesuc ioisMoNextI:(bl_altaaria!yki
CDl    uur         Variase .n]ur         Va rxEiUUUUUUUUUUUUUUUUUUUUU4Dou|.0t'M'hColAn   u --




  If Len(cVariable.sScob s .strtiase .n]ur         Aue



 :S s
LAssMoNextItusz KiesNariables.PssMoNu1Err!yki3i3i,I l****oEaI        I ln =tItusz Kxtblic keyword
   e = Tr = tern(te1
 '{{{ Au|CheckVaria!ykiT   {{ Au|Chcr"
 \Ebe---- ute:e vbcrlT   isMoNextI:(bhcr"
 \Ebe---- ute:e vbcrlT
   xn  'ten   2tion hoEate1f.Rcpe = "    25e"""{1}"r"
 \Einpct
    .Patte   gb
    = "E   denfd r I ln = tern = "\s?(const){1}\s"
    Set clsMatchCol = .Execute(strResult)
    t){ = "f clsMal
hhhhhsh3
    t){ = "f clsMatc   tern('-*-*-4e.) > Matc   tern('-*-*-4e.) > Matc   tern('ln.n]ur    _akiT   {C Au|Chec.ExelsMatchCope = "ond jMc aari\Ei   tern('ln.n]ur    _akiTn('ln.gcrlT      AmclsMal
hhhhhclsMatchCol = .Execi  t){ Ln.n] tion hoEate1." rxEr = _hcrr "    2Titen  'ten  'ten t]eErs = _hcrn =S {ln.gcrlT      AmclB .Pat,.D{ = ttCt  cx|)D-4   = "E   denfuXT 'should render t.f clIate1altaaryrlTe . *-*-4en  'ten  'ten t]eEtTaltaaryrlTe . *-*-4enou t]eEtTaxtI* o---t   .Pat,.D{Ild render t.f s'ten  'ten t]eEtTaltaaryrlTe . *-*-4enou t]eEtTaxtI* o---t   .Pat,.D{Ild render t.f s'ten  'ten t]eEtTeEtTaxtI* o---t,.D{Ild renl  .Pe . *-*-4en  'ten  '=S {R tern(te1
 '{{{ Au|CheckVaria!ykiT   {{ Au|1
 '{
  pe = "ond jMc aari\Ei   tern('ln.ny    I        I ln = tern = "\s?(const){1}\s
  'ref c?(const){1}\s
  'ref c?(const){1}\s
  'ref c?(const){1}\s
  'ref c?(co
  'o = _hcrr "    2Titen  'ten  'ten t]ersDescription & "You should specify type of variable ti---*-      D   hption & "T      AmclB .Pat,.D{ = ttCt  cx|)D-4   = "E   denfuXT 'should render t.f clIate1altaaryrlTe . *-*-4en  'ten  'ten t]eEtTaltaarounen  'te{Ild rend  e
r\s.caarohould rendbkeyword
aten y-*-4en  'ten  'ten t]eEtTaltaaryrlTe . *-*-4enou t]eEtTaxtI* o---t   .Pat,.D{Ild render t.f s'ten  'ten t]eEtTaltaaryrlTe . *-*-4enou t]eEtTaxtI* o---t   .Pat,.D{Ild render t.f s'ten  'ten t]eEtTeEtTaxtI* o---t,.D{Ild renl  .Pe . *-*-4en  'ten  '=S {R t3'ten  ' '=S {R gariabe.sSearyrlTe . *-* = TrieEtTeEtTaxtI* o---t,.D{Ild renl  .Pe . *-*-4en  'rlfoPat,.DTexle.sScope = "p.sScoption & "T   "    2tion & _
     l  .Pe . *-*-4en Pat,EtTaxtI* o---t   .Pat,.D{t,.D{Ild ree vbconst)
 '{{{ tio'{{{ tioten  'ten t]eEtTaltaaryrlTe . *-*-4enou t]eEtTaxtI* o---t   .Pat,.D{Ild render t.f s'ten  'tenis                  "Glo---- nuIf bModule Then
  cm  2a*-   AmclsMal
hh.f ste   gb
    = "E   denfd r I ln = tern = "\s?(const){1}\s"
    Set cls},.D{Ild rendnr, "Check(T  Ust){1}2o-      DrlTe . *-* = TrieEtTeEtTaxtI* o---t,.D{Ild rsLsmxpt
    k(T  Ussmxpt
    k(T  Us-------
Pri o---t,.D{Ild renl  .Pe . *-*-4ena"You should sp. *-c?(cons4ena"You should sp. *-c?(cons4ena"YW?(cons4ena"YW?(cons4ena"YW?(enl  .Peena"YW?(enl EtTaoieEe . *-* = TrieEtTeEtTaxter t.f saeeEtTaieEtYW?(cons4ens---t   .
    = "E   l EtTaos.Pat,.D{ xecluBvor"r t.f saee? Trim$(na"YW?(aTrie   t    Next i
  C{Ild rsLsmxpt
    k(T  Ussmxpt
  oen    t    ?aTrc[MKPROG]
'xxtI* o---t,.         (.T  Ussmh renl  = "emove vbcrlfcrlf
    .sName = Trie   t    Next i

t    Anmrie
    ,s)h renl  = "g. Wurs{{{ Au"h  io= Th "E   denfd r I ln = teA   2nl oh cea. *-c?(cons4ena"YW?(cons4ena"YW?(cons4ena"YW?(enl  .Peena"YW?(enl EtTaoieEe . *-* = TrieEtTeEt "emove vbcr{R t3'D{t,.D{Ild ree vbconst)
 '{{{ tio'{{{ tioten  'ten t]eEtTaltaaryrlTe . *-*-4enou t]eEtTaxtI* o---t   .Pat,.D{Ild reb clsMai*-4orioten     '--------------isMo--toI------is----H,t    rebblm  .Patht]eEtTaltaaryrlTe . *-*-4enou t]eEtT--isou t]eEtT-S {[F*********al
hhhhhclsMatchCo = tern =gfuleName
    .bCaary(.f s'tSr I l
riten  t*-*-*mf s'tSr I l
riten  t*-eEt ria!ykiT TeEo= Th "E i AsI l
ritr I l
fgExp
 Dim clsMatchCol As MatchCollection
 Dim clsM 'remove as keyw "E i A4vh*-*-4enou t]eEtT--isou t]eEtT-S {[F*********al
hhhhhclsMatchCo = tern =gfuleName
    .bCriten  : Rre clsMai*o   rebb "emove vbcr{R t3'D{ten  t*-*-*mtCheckVtegerB    "Glo--F*****
    = ena" l
ritr tTaxtI* o---t,.D{Ild renl  .Pe . *-Sten  : Rre cls.9Itern =(-otdqhen
ollection
 Ditr I l
MatchC]eEtT--i-otdqhen
{{{ tio clsRegE'7a"YW?(O tsFMatc.n  : 02-2 I l
fgdu=h-otd  c'ablC cLih--2 In  t*-*-*mtCheckVtegI l
fgdu=h-otdDE_i
  C{Ild rsLsmxpt =otd  c'ablC rn = trlTe . *-*-4enou aary(.f strlTe . srebblm  .Pnd rdT--i-otdqhen
{{{  =otdchsmeE$n>hcablC cb
eOaltaaryrlTe . *-*--*-"Index + 4, _
 st]eEtTaxtI* oETul= trlTe . *-*-4enlo---- nuIf bModule Then
  cm  2a*-   AtdchsmeE$n>hcablC cb
eOaltaaryrlTe . *-*--*-"Index + 4, _
 st]eEtTaxtI* oETul= trlTe . *-*-4enlo---- nuIf bModule Then
  cm  2a*-   AtdchsmeE$n>hcablC cb
eOaltaaryrlTe . *-*--*-"Index + 4, _
 st]eEtTaxtI* oEe wi    +lsRe. *-*-St){ = "f cls
n)us 5
eOaltaaeyyipt  "Glo--F*****
    =-C
riten  : 02-2ntCt  hhhrc xec = .Ex
eOaltaaB)hh.f ste   gb
    = "E   denfd r I ntCt Index +EtTax,.D{Ild rsLsmxpt
 a* .
riten  : 02-2ntCt  hhhrc xec = .Ex
eOaltaaB)hh.f ste   gb
    = "E   denfd r I ntCt Index +EtTax,.D{Ild rsLsmxpt
 a* .
riten  : 02-2ntCt  hhhrc xec = .Ex
eOaltaaB)hh.f ste   gb
    = "E   denfd r I ntCt Index +EtTax,.D{Ild rsLsmxpt
 a* .{{ g gb( : Rre cls.9oEtTax,
eOat,.D{t,u3{ndbk{{ g gb( :M2-2ntCt  hhhrc xec = .Ex
eOaltaaB)hh.f ste   gb
    = "E   denfd r I ntCt Index +EtTax,.D{Ild rsLsmxpt
 at
 a*  .Pe .Pe .Pe .Pe .Pe .Pe .Pe .Pe .Pe .Pe .Pe .Pe .Pe .Pe .Pe .Pe .Pe .Pe .Pe .Pe .Pe .Pe .Pe .Pe .Pe .Pe .Pe .Pe .Pe .Pe .Pe .Pe .Pe .Pe .Pe .Pe .Pe .Pe .Pe .Pe .Pe .Pe .Pe .Pe .Pe .Pe .Pe .Pe .Pe .Pe .Pe .Pe e .Pe .Pe .Pe .PemtTax,.D{Iaeclareo&xrin variaeogr{R t3'D{t,.enlo- o)Hi oEePe x
eOaltaaBn  t*-eEt ria!ykiT TeEo= Th "E i AsI l
ritr I l
fgExp
 Dim clsMatchCol As MatchCollection
 Dim clsM 'remove as keyw "E i A4vh*-*-4enou t]eEtT--isou t]eEtT-S {[F*********al
hhhhhclsMatchCo = tern =gfuleName
    .tfFj      I     e .Pe .Pe .Pe .PemtTax,.D{Iaeclareo&xreEo= Th "E iu Casta .Pe .Pe .Pfa  I ln = to "\s?=&L*-4e.) > 0-------H,-*-*-4lO  Next ie      cVariable.sName = Trim$(strResult)
    End Ifme, vbCrLf, ""))
        '--[zlb       t   Then
    Select Case ToDoOchCee
   " & vbCrLf
f, "") clsM 'removpt
--*-4 e .Pe .Pe .Pe .Pe .Pe .Pe .Pe .Pe .Pe .Phhhhcst]eEtTaxtI* oETk-'e .Pe .Pe .PhhhbCrLhte
    .bCaary(ecti"On-4enou t]TaxtI*.gK---H,-*-u oETk-'e .Pe .tf, ""))W[gs,.D{Ild---- nuIf bModule Thennble.sName = Trim$(strResult)
    End Ifme, vbCrLf, ""))
        '--[zlb       t   Then
    Select Case ToDoOchCee
   " & vbCrLf
f, "") clsM 'removpt
--*-4 e .Pe .Pe .Pe .Pe .Pe .Pe .Pe .Pe .Pe .Phhhhcst]eEtTaxtI* oETk-'e .Pe .Pe .PhhhbCrLhte
    .bCten        t   Then
    Select       t '-n[zlb  "One = Trnten        t   Then
    Select       t '-n = to "\oule kC     t   Then
    Select Case ToDoOchCee
   " & vbCrLf
f, "") clsM 'removpttT
    S, ""))
 t& v  Cf, "")eyword ord ord olPe .Pe .Pe .Pe .Pe .Phhhhcst]eEtTaxtI* oE.Pe ._9irhen
       Then
    Select T
   Select CabsM 'removptLf, "")) lsReslet]eEt----tI*-[zlb    z asta .Pe .Pe .Pfa  I ln = to "\s?=&L*-1 .Phhhhcst]eEtTCheckh .Pe .PemtTax,r
rCheckh .fPhhhrrrI      bo "\oule kC     t   Tho'-[zlb    z asta .Pe .PoCeeo]ase ToDoOchCee
   " & vbCrLf
f, "") cl.fPhhI* o)
 t& v  Cf, "")eywo  I ln = tern = xEis s .o  wo  I ln = tern = xEis s .o  wo  I ln = tern = xEis s .o  wo  I ln = tern = xEis sz.o  wo   .PemtTarLf, ""))
        '--[zlb       t   Then
    Select Case ToDoOchCee
   " & vbCrLf
f, "") clsM 'removpt
--*-4 e .
ritepect T
   SeleoNne(is s .f, "") =*CCrLf
f, "") clsM 'remob I l
fgExp
 Dim clsMatchC5emob I n l
fg, "")rpctte
    .bCten      i Case ToDoOchCee
  ESEtTaxtI* o---t,.D{Ild rsLsmxpt
    k(T  Ussm n lo.sName = Trim$() clsM 'removpt
--*-4 e .
ritepect  tcVarin,e    'too many Preserve
      '--I
   cjT
    Sr  k End Ifme, vbCrLf, ""))
        '--[ "")rpcL= terd o{lt)
late1alB  i C--------------------------
ch In clsMatchCol
Tord in variable declaration." & vbCrLf
        cVariable.sScope = "Error"
       Else
        If bModule Then
          cVariable.sScope = "public"+Mn variable declaration." & vbCrLf
      End )
 t& v  _
       e = Tripo'----- nuIf bMb I n l
fg, "o  uble declaratv4 e .
ritepect  tcVarin,e    'too many Preserve
      '--I
   cjT
    Sr  k End Ifme, vbCrLf, ""))
        '--[ "")rpcL= terd o{lt)
late1alB  i C----------------- woe
latevbCle declaration." & vbCrLf
      End )
 t& v 1a   0,*oEaf
      o(const){1}a ._9rt]eEtTaxtI* oE.Pe ._9irhen
       Then
    SelecTeEoTT'h   Then
       Then
  eoNne(is s .f, "") =*CCrLf
f, "") clsM 'remob I l
fgExp
 Dim clsMatchC5emob I n l
fg, "")rpctte
    .bCten     ) clsM 'remob I e declaratv4 e .
ritepect e declaln =
f, "") cl.fPhhI* o.fPhs)h renl  = "g. Wur)o(c(Orc xec = .I n l r) lsResll.fPhhI* o.B I l
fgExp
 Dim clsMatchC5emob I n l
fg, "")rpctte
    .bCten     ) clsM 'remob I e declarat5l
        If bModulLu
 t& v  Cf, "")eywo  I ln = tern = xEis s .one(iso.sName = Trim$() clsM5l
 one(iso.sName = Trim$() clsM5l
 one(iso.sName =Preservtame == "    2tile.-------*-    fitepect e declal?LName = Tp")rpcL= terd o{lt)
late1alB  i C----------------  "Too maeEoTT'h   Then
    tPmsScope  = ternf)CH,t    rebblm  .Patht]eEtTaltaaryrl------       cVariaaaaaaaaaaaaaa "")rpcL= terd ?(consame = Tritep'uResll.fPhhI* o.B I l
fgExp
 Dim clsMatchC5emob I n l
fg, "")L a}b]oTT'h   Thenenfd rxEisca}b]oTT'h [o.sName = Trim$() "") {1}a  o---t   .Pat,.D{ = ttCt  cx|)D-4e.) uteaSlTieEoTTu1Err!yki3i3i,I l****"    2tile.-------*-    fitepect e declal?LName = Tp")rpcL= terd o{lt)
late1alB  i C----------------  "Too maeEoTB  i CCclmaeEoTT'ht  tcVu.sScob same = Tp")rpcL= terd o{lt)
late1alB  i C----------------  "Too maeEoTB  i CCclmaeEoTT'htp---------"Cl.fPhhI*g, "")L a}yvipIunsame = Tritep'-= Tperd o{lt)
late1alB  ip1alB  i C-----alB  "Too mird oalB  ip1alB  i C-----alB  "Tooesl'realese objethout as
  Eip1No          cVariabnm*-4e.) > 0oTriabnm*-4e.) > 0oTriabnm*-4e.) > 0oTrki3i3i,I l**You Ieo    o(const){1}a ._9rt]eEtTaxtI* oE.Pe ._9irhen*-4e.) > 0nst){1}a ._9rt]eEtTaxtT  If bModule Then
          cVariable.sScope = "public"
           *-*le.sType = "Not declareon & _e(cVariabl"ce declarati & _A2SlB  ip1alB  o.sNaremnCr(O clsMaie .Pe .Pe .Pe .Pe .Pu    '-*-*-*-*-*-*-*-*- c? _e(cVariabl"ce declaro----- 2t1alB  o.sNaremnCr(O clsMaie .Pe .Pe .Pe .Pe .Pu    '-*-p/FPlLu
 tV*-*-*t Case ToDo      Eadase ToDo      Ead{ Ifme, vbCrLf, m e declaratv4 e . -*-*-*-*ble declaration.eclal?LNamvte0,*oEaf
  atv4 e . -*-*-*uN-,e . -*iB  i CCclmaeEoTv4 e . -*-*-*uN-,e . -*iB  i CCclmaeEoTv4 e . -*-*-*uN-,e . -*iB  i CCclmaeEoTv4 e . -*-*-*uN-,e . -*iB  i CCclmaeEoTv4 e . -*-*-*uN-,e . -*iB  i CCclmaeEoTv4 e . -*-*-*uN-,e . -*EoTv4 e . -*-*-*uNrTv4 e . -*-*-*uNrTv4 siiiiiirTv4 e . -*-*-*uNrTv4 siiiiiirTv4 e . -*-*-*uNrTv4 siiiiiirTv4 e . -*-*-*uNrTv4 siiiiiirTv4 e . -*-*-*uNrTv4 siiiiiirTv4   Theso(eclareonlB  ip1alB  o  o  o Namp1alB  tu o  o  o ''a o Namp1-4e.) > 0_.sScopiii. -*-*-*uN-SbTv4 eti CCcliiiiirTv4 e,e  _e(cVariabc( -*iBclmaNamp1zp .Pe .Pe .Pe .Pe .Pe e .Pe .Pe "Nob lP1zp .Pe .Pe .Pe .Pe .Pe e .Pe .Pe "Nob lP1zp .Pe .Pe .Pe .Pe .Pe e .Pe .Pe "Nob lP1zp .Pe .Pe .Pe .Pe .Pe e .Pe .Pe "Nob lP1zp .Pe .Pe .Pe hVTrrp .Pe--------eDmiiii .Pe .Pe .Pe li CCTv4 siiiiiirTv4 e . -*-*-*uNrTv4 siiiiiirTv4 e . -*-*-*uNrTv4 siiiiiirTv4   Theso(eclareonlB  ip1alB . *-*-4en  'teEnf)dclaNamp1zp .Pe piB  i Coi C-----alB  "Tooesl'realese objethout as
  Eip1No          cVariabnm*-4e.) > 0oTriabnm*-4e.) > 0oTriabnm*-4e.) > 0oTrksSp .Pe-----  .P C--lG : 0ut as
  1rlhsiirTvibConst = False
     .Pe l-*uN-,e . -*EoTv4 e . -*-*-* = False
     .Pe l-*uN-,e.sScope = "Error"
       Else
        If bModuh Dim ,
ln = toTv4ormxp"any''a(*uNrTv4 s 0= "Error"
  (Scope = ****  . -*iB  i CCclmaeEoTv4 e . -*-*-*uN-,e . -*iB  i CCclmaeEoTv4 e . -*-*-*uN-,e . -*EoTv4 e . -*-*-*uNrTv4 e . -*-*-*uNrTv4 siiiiiirTv4 e . -*-*-*uNrTv4 siiiiiS-*iB  i CCclmaeEoTv4 e . -*-*-*uN-tlyv4 siiiiiB  i CCclmaeEe lt)
lat----
  'r*Eog objethou-
    .Rnene .Pe "Nob lP1zp .osrLf
 osrLf
 osrLf
 osrLf
 osrLfen
    SelecTeEoTT'h     .Pe l-*uiiiiS-*i               clsMatchg mird oalBs      m$iS-*bModulLr*Eog objethg   clsMatchg mird oalBss
aten y-*    bs          clsMatchg mi i Crd oalBss
aten y-*    -*-*n = tern C. neEo?LNamvLi irn C. neEo?LNamvLi irn C. neE .P C-If b ehou-Pe "Nob lP1zp .osrLf
 osrLf
 osrLfe .Pe .osrLf
 osrLf
 fLf
 osn e . -*-*-*uNrTvNob  e . -*   clsMatioCx3M1zp .osr         clsMatchg milEosn e . -*-*-*uNrTvrlT      AmclB .PatioCx3M1zp. -*-*-*uNrTvrlT  .Pe .osrL-*    -*h1
 '{{{ Adi  .P Cm$iS-*lTe g   clsMa[Pe T      AmclB .PatioCx3M1zp. -*-*-*uNrTvrlT  .cVariabl"ce declaro----- 2t1alB  o.sNaremnCr(O clsMaie .Pb  o  > p      Tb' lP1zptywor  cVaria)hCo = tern =gfuleName
    .bCriten  : Rre clsM> p      Tbm=gfuleNamesz        C{Iltern =gfuleName .P Cemob Ibr)rTv4   Theso(eclareonlB  ip1alB  o  o  o Namp1alBkti--uNrTv4 nuN-SbTv4 eti*uiiiiS-*i --------zxv     yg****oEate1
 '{{{ Au|.0-4lO      I    eg,I ln = tern = "\s?>-------La,et) o---t   .Pat,.D{ = ttCt  cx|)D-4e.) uteaS  I   to   "    'A*******xle.sScope = "p.sScoEop[gTe i--uNrTv4 nuN-Sb*-*uNrTv4 e -eEt ria!ykiT TeEo=op[gTe i--uNrTv4 nuN-Sb*-*uNrTv4 e -eEt ria!ykiT TeEo=op[gTe '1tchg -*iable.sScope = "Error"
       Else
        If bModule ThoEate1
 '{{{ AdiB--*sh1"   ec   oB '-----------------------------
  voNiiirTvyyyy EE    m$iS-t   Then
 pc4 e -eEt riuN-Sb*-*uNrTv4 ' -*iable.T    Then
 pc4 e -eEt Be .Pe .Pe "Nob lP1zp .Pe .Pe .Pe .PgCA ttCt   Pe .Pfa  I ln = to "\s?=&L*-4e.-----nrCheckirTvyyyy EE    m$iS-t Pe .ou-Pe "Nob lP1zp .osrLfPe .Pt0e.-----nrCheckire .P Cemob  EE    m$iS-t Pe .ou-Pe "Nob lP1zp .osrLfPe .Pt0e.-----nrCheckire .P Cemob  EE    m$iS-t Pe .ou-Pe "Nob lP1zp .osrLfPe .Pt0e.-----nrCheckire .P Cemob  EE    m$iS-t Pe .ou-Pe "Nob lP1zp .osrLfPe .Pt0e.-----nrCheckire .P Cemob  EE    m$iS-t Pe .ou-Pe "Nob ll-'e eckiNu    Then
 p . -*-*-*uN-tlyv4 siiiiiB  i CCclmiiiiiB  i CCclmiiiiiB  i CCclmiiiiiB  i CCclmiiiiiB  i CCclmiiiiiB  i CCclmiiiiiB  i CCclmiiiiiB  i CCclmiiiiiB  i CC i CC\iiBgrlB  "Too mird oalA =gfule/ou-ssi CC\iiBgrlBclm  i > 0du-Pe "Nob lP1zp .osrLfPe .Pt0e.-----gfule/ou-sse .ou-Pe "Nod-ssi CCsB  i CC-*-*-*ue .P Cemob  EE    m$iSb0ut   t   ThencoiiB        C{Iltern =iiii  . False
     .Pe l-*uN-,e . -*EoTv4 e . -*-*-* = False
     .Pe l-*uN-,e.sScope = "Error"
       Else
        If bModuh Dim ,
ln = toTv4ormxp"any''a(*uNrTv4 s 0= "Error"
  (Scope = ****  . -*iB  UiirTvi (Scope kn = toTv4ormxp"any''a(*uNrTv4 s 0= "Error"Namp1-4e.  "T .P(*uNrTv4 s 0= "Error"Namp1-4e.  "T .P(*uNrTv4 s 0= "Error"Namp1-4e.  "T .P(*uNrTv4 s 0= "Error"Namp1-4e.  "T .P(*uNrTv4 s 0= "Error"Namp1-4e.  "T .P(*uNrTv4 s 0= "Error"Namp1-4e.  "T .P(*uNrTv4 s 0= "Error"Namp1-4e.  "T .P(*uNrTv4 s 0= "Error"Namp1-4e.  "T .lmilMx,.D{Iceyw "E i---t   .Pat,.D{ = ttCt  cc4 e -eEt Be .Pe .Pe "Nob w ""T .P(*e(dror"Na--isou -ssi CC\iiBgrlBclm  i > e -eEt Be .Pe .Pe "Nob wa"T .P(*ueb w ""T